home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / tk_bar / tkabt.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1993-12-06  |  5.1 KB  |  170 lines
  1. VERSION 2.00
  2. Begin Form frmAbout 
  3.    BackColor       =   &H00808080&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "About"
  6.    ClientHeight    =   2685
  7.    ClientLeft      =   1140
  8.    ClientTop       =   1620
  9.    ClientWidth     =   3975
  10.    Height          =   3120
  11.    Left            =   1065
  12.    LinkTopic       =   "Form1"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   2685
  16.    ScaleWidth      =   3975
  17.    Top             =   1260
  18.    Width           =   4125
  19.    Begin Timer Timer1 
  20.       Interval        =   150
  21.       Left            =   2280
  22.       Top             =   3120
  23.    End
  24.    Begin PictureClip PicClip1 
  25.       Cols            =   4
  26.       Location        =   "1920,480,2940,240"
  27.       Picture         =   TKABT.FRX:0000
  28.    End
  29.    Begin PictureBox picInfo 
  30.       BackColor       =   &H00C0C0C0&
  31.       Height          =   990
  32.       Left            =   150
  33.       ScaleHeight     =   960
  34.       ScaleWidth      =   3660
  35.       TabIndex        =   0
  36.       Top             =   825
  37.       Width           =   3690
  38.       Begin Label lblLine2 
  39.          AutoSize        =   -1  'True
  40.          BackColor       =   &H00C0C0C0&
  41.          Caption         =   "Light at the End of the Tunnel Software"
  42.          ForeColor       =   &H00FF0000&
  43.          Height          =   195
  44.          Left            =   150
  45.          TabIndex        =   1
  46.          Top             =   300
  47.          Width           =   3390
  48.       End
  49.       Begin Label lblLine3 
  50.          AutoSize        =   -1  'True
  51.          BackColor       =   &H00C0C0C0&
  52.          Caption         =   "by Tim Koffley [70334,16]"
  53.          ForeColor       =   &H00000000&
  54.          Height          =   195
  55.          Left            =   750
  56.          TabIndex        =   2
  57.          Top             =   675
  58.          Width           =   2190
  59.       End
  60.       Begin Label lblLine1 
  61.          AutoSize        =   -1  'True
  62.          BackColor       =   &H00C0C0C0&
  63.          Caption         =   "Another Button Bar 1.0a"
  64.          ForeColor       =   &H00000000&
  65.          Height          =   195
  66.          Left            =   780
  67.          TabIndex        =   4
  68.          Top             =   75
  69.          Width           =   2070
  70.       End
  71.    End
  72.    Begin SSPanel pnlInfo 
  73.       BackColor       =   &H00C0C0C0&
  74.       BevelInner      =   1  'Inset
  75.       Font3D          =   0  'None
  76.       Height          =   2715
  77.       Left            =   0
  78.       TabIndex        =   3
  79.       Top             =   0
  80.       Width           =   3990
  81.       Begin CommandButton cmdOK 
  82.          BackColor       =   &H00000000&
  83.          Caption         =   "OK"
  84.          Default         =   -1  'True
  85.          Height          =   465
  86.          Left            =   1125
  87.          TabIndex        =   5
  88.          Top             =   2025
  89.          Width           =   1440
  90.       End
  91.       Begin PictureBox picIcon 
  92.          AutoSize        =   -1  'True
  93.          ClipControls    =   0   'False
  94.          Height          =   510
  95.          Left            =   1575
  96.          ScaleHeight     =   480
  97.          ScaleWidth      =   480
  98.          TabIndex        =   6
  99.          Top             =   225
  100.          Width           =   510
  101.       End
  102.    End
  103. Option Explicit
  104. Dim Shared sLeft1%, sLeft2%, sLeft3%
  105. Dim Shared sCurrPic As Integer
  106. Sub cmdOk_Click ()
  107.   Unload Me
  108. End Sub
  109. Sub Form_Activate ()
  110. Dim i%
  111.    ' i tried hooking the scrolling into a timer but
  112.    ' the effect was jerky animation so i just left it
  113.    ' as is with the scroll speed depending on machine
  114.    ' speed
  115.    'scroll the lines onto the screen
  116.    Timer1.Enabled = False
  117.    Refresh
  118.    For i = lblLine1.Left To sLeft1 Step 30
  119.       lblLine1.Left = i
  120.    Next
  121.    For i = lblLine2.Left To sLeft2 Step -30
  122.       lblLine2.Left = i
  123.    Next
  124.    For i = lblLine3.Left To sLeft3 Step 30
  125.       lblLine3.Left = i
  126.    Next
  127.    Timer1.Enabled = True
  128. End Sub
  129. Sub Form_Load ()
  130. Dim Middle%
  131.   picInfo.BorderStyle = 0
  132.   CenterForm Me
  133.   'fit panel to form
  134.   pnlInfo.Top = 0
  135.   pnlInfo.Left = 0
  136.   pnlInfo.Width = frmAbout.ScaleWidth
  137.   pnlInfo.Height = frmAbout.ScaleHeight
  138.   'center form controls
  139.   Middle = (frmAbout.ScaleWidth / 2)
  140.   picIcon.Left = Middle - (picIcon.Width) / 2
  141.   picInfo.Left = Middle - (picInfo.Width) / 2
  142.   cmdOK.Left = Middle - (cmdOK.Width) / 2
  143.   'save old line positions
  144.   sLeft1 = lblLine1.Left
  145.   sLeft2 = lblLine2.Left
  146.   sLeft3 = lblLine3.Left
  147.   'move them off screen
  148.   lblLine1.Left = -lblLine1.Width - 1000
  149.   lblLine2.Left = lblLine2.Width + 1000
  150.   lblLine3.Left = -lblLine3.Width - 1000
  151.   picIcon.Picture = PicClip1.GraphicCell(0)
  152.   sCurrPic = 0
  153. End Sub
  154. Sub Timer1_Timer ()
  155.    Select Case sCurrPic
  156.       Case 0
  157.          picIcon.Picture = PicClip1.GraphicCell(1)
  158.          sCurrPic = 1
  159.       Case 1
  160.          picIcon.Picture = PicClip1.GraphicCell(2)
  161.          sCurrPic = 2
  162.       Case 2
  163.          picIcon.Picture = PicClip1.GraphicCell(3)
  164.          sCurrPic = 3
  165.       Case 3
  166.          picIcon.Picture = PicClip1.GraphicCell(0)
  167.          sCurrPic = 0
  168.    End Select
  169. End Sub
  170.